function[vel]=velocidad(B,N,cuerpo_medio,inclinacion)
ll=length(B);
datos=[];
for t=(N+1):ll
    bb=B{t};
    mayor=0;
    [m,n]=size(bb);
    if m>=4
        while isempty(find(bb(:,1)~=0))==0
            f=find(bb(:,1)==max(bb(:,1)));
            bb(f,1)=0;
            bbb=(max(bb(f,2))-min(bb(f,2)))+1;
            if bbb>mayor
                mayor=bbb;
            end
        end
    bb=B{t};    
    largo=(max(bb(:,2))-min(bb(:,2)))+1;
    datos=[datos (mayor/largo)];        
    end
end
if isempty(datos)
    resul=1;
else
    resul=mean(datos);
end
vel=(10*((abs(inclinacion)-(cuerpo_medio*resul))));